home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / System Utilities / LaserWriter Image Centring / Current Margin Settings < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.0 KB  |  22 lines  |  [TEXT/ttxt]
  1. /str 32 string def    %Define a 32 character string for later use.
  2. /Times-Roman findfont    %Lookup font in fontdict and push it on stack
  3. 15 scalefont setfont    %Push size, scale, and make it the current font.
  4. 72 700 moveto    %One inch over, and 700 72nds up.
  5. statusdict begin    %We'll be using two operators from statusdict.
  6. (Margins for )    %Push the leading text on the stack
  7. show    %Show the topmost string from the stack at 72 700.
  8. str    %Push an empty string of 32 length on stack.
  9. printername    %Puts the LaserWriter name in the string.
  10. show    %Show it.
  11. 72 680 moveto    %Move back to 1 inch left, and down 20 points.
  12. margins    %Push top and left margins onto stack.
  13. ( Xoffset set to: )    %Push leading string onto stack.
  14. show    %Show it.
  15. str    %Push an empty string.
  16. cvs show    %Convert left margin into the string and show it.
  17. 72 660 moveto    %Do the same thing again for the top margin.
  18. ( Yoffset set to: )    %
  19. show str cvs show    %
  20. clippath stroke    %Draw a frame around the page border
  21. showpage    %spit out the page./str 32 string def %Define a 32 character
  22.